home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / cc____i1.p2s < prev    next >
Encoding:
Text File  |  1993-12-17  |  1.6 KB  |  66 lines
  1. # DESCRIPTION:
  2. # --------------------------------------------------------------
  3. #
  4. # OPEN CD PLAYER, LOCK EJECT, EJECT, UNLOCK EJECT, EJECT, CLOSE
  5. #
  6. # --------------------------------------------------------------
  7. @BREAK              A CDDA WILL NEED TO BE IN THE DEFAULT CD-ROM DRIVE
  8.  
  9. # OPEN CDDA1
  10. open cdaudio00 alias cdda1 notify
  11. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  12. @WAIT_NOTIFY 1 30000
  13.  
  14. # WAIT FOR USE OF CDDA1
  15. acquire cdda1
  16. @WAIT_PASSDEVICE cdda1 10000
  17.  
  18. # LOCK MANUAL EJECT BUTTON
  19. set cdda1 door locked notify
  20. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #2
  21. @WAIT_NOTIFY 2 30000
  22.  
  23. # Required command for Check scenario.
  24. pause cdda1
  25. @CHECK The manual eject button has been locked.  Attempt to Eject the CDDA.  Did the eject fail?
  26.  
  27. # CHECK FOR MEDIA PRESENCE
  28. status cdda1 media present wait
  29. =TRUE
  30.  
  31. # EJECT MEDIA
  32. set cdda1 door open notify
  33. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #3
  34. @WAIT_NOTIFY 3 30000
  35.  
  36. # CHECK FOR MEDIA PRESENCE
  37. status cdda1 media present wait
  38. =FALSE
  39.  
  40. @BREAK              PLEASE REPLACE THE CDDA INTO THE CD-ROM DRIVE.
  41. # WAIT FOR CD-ROM TO RESET
  42. @PAUSE 5000
  43.  
  44. # CHECK FOR MEDIA PRESENCE
  45. status cdda1 media present wait
  46. =TRUE
  47.  
  48. # UNLOCK MANUAL EJECT BUTTON
  49. set cdda1 door unlocked notify
  50. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #4
  51. @WAIT_NOTIFY 4 30000
  52.  
  53. # EJECT MEDIA
  54. set cdda1 door open notify
  55. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #5
  56. @WAIT_NOTIFY 5 30000
  57.  
  58. # CHECK FOR MEDIA PRESENCE
  59. status cdda1 media present wait
  60. =FALSE
  61.  
  62. # CLOSE CDDA1
  63. close cdda1 notify
  64. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #6
  65. @WAIT_NOTIFY 6 30000
  66.